Star Festival... a Return to Japan/Star Festival... a Return to Japan.iso/pc/STARFESTIVAL/01p1.dir/00001.ls

Text File | 1999-04-07 | 1.5 KB | 55 lines

on startMovie
  global gKnobSprite, gSendMovie
  gKnobSprite = 14
  gSendMovie = "01p1"
  puppetSprite(48, 1)
  setUpKnob()
  set the mouseDownScript to EMPTY
  set the mouseUpScript to EMPTY
end

on idle
  global gCursorReady
  if gCursorReady = 1 then
    cursor(200)
    checkCursors()
    set the locH of sprite 48 to the mouseH
    set the locV of sprite 48 to the mouseV
    updateStage()
  end if
end

on checkCursors
  global gMagCursor
  set the castNum of sprite 48 to the number of member "curs1"
  if the castNum of sprite 5 and rollOver(5) then
    set the castNum of sprite 48 to the number of member gMagCursor
  end if
  if the castNum of sprite 8 and rollOver(8) then
    set the castNum of sprite 48 to the number of member "deMagCursor"
  end if
  repeat with i = 15 to 17
    if rollOver(i) then
      set the castNum of sprite 48 to the number of member "hotCursor"
    end if
  end repeat
  repeat with i = 20 to 22
    if the castNum of sprite i and rollOver(i) then
      set the castNum of sprite 48 to the number of member "hotCursor"
    end if
  end repeat
  repeat with i = 30 to 32
    if rollOver(i) then
      set the castNum of sprite 48 to the number of member "hotCursor"
    end if
  end repeat
  repeat with i = 40 to 42
    if rollOver(i) then
      set the castNum of sprite 48 to the number of member "hotCursor"
    end if
  end repeat
  if the castNum of sprite 47 and rollOver(47) then
    set the castNum of sprite 48 to the number of member "hotCursor"
  end if
end